/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / S / simp3d.cpt / 3DBB.BAS

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 33 44 42 42 2e 42 | 41 53 00 00 00 00 00 00 |..3DBB.B|AS......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 42 | 42 01 00 00 00 00 00 00 |.TEXTMSB|B.......|
|00000050| 00 00 00 00 00 13 dd 00 | 00 01 b6 9e 7d da 1e 9e |........|....}...|
|00000060| 7d da 1e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d8 4c 00 00 |........|.....L..|
|00000080| 31 30 20 58 3d 30 3a 59 | 3d 30 3a 5a 3d 30 3a 45 |10 X=0:Y|=0:Z=0:E|
|00000090| 58 3d 30 3a 45 59 3d 30 | 3a 44 3d 35 30 30 30 3a |X=0:EY=0|:D=5000:|
|000000a0| 41 4e 47 3d 31 30 2f 35 | 37 2e 32 39 35 37 38 0d |ANG=10/5|7.29578.|
|000000b0| 32 30 20 44 49 4d 20 4d | 28 35 30 30 2c 33 29 3a |20 DIM M|(500,3):|
|000000c0| 4d 50 3d 31 3a 56 50 3d | 31 3a 43 53 3d 31 3a 43 |MP=1:VP=|1:CS=1:C|
|000000d0| 3d 31 30 0d 33 30 20 57 | 49 44 54 48 20 38 30 3a |=10.30 W|IDTH 80:|
|000000e0| 43 4c 53 0d 34 30 20 50 | 52 49 4e 54 20 22 33 44 |CLS.40 P|RINT "3D|
|000000f0| 42 42 3a 20 33 2d 44 69 | 6d 65 6e 73 69 6f 6e 61 |BB: 3-Di|mensiona|
|00000100| 6c 20 42 6c 61 63 6b 20 | 42 6f 61 72 64 20 20 76 |l Black |Board  v|
|00000110| 31 2e 32 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1.2     |        |
|00000120| 20 20 20 53 63 41 6e 20 | 53 6f 66 74 77 61 72 65 |   ScAn |Software|
|00000130| 20 44 65 73 69 67 6e 73 | 22 0d 35 30 20 50 52 49 | Designs|".50 PRI|
|00000140| 4e 54 20 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |NT "    |        |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000170| 20 20 20 20 20 20 20 20 | 20 32 31 30 35 20 32 39 |        | 2105 29|
|00000180| 74 68 20 53 74 72 65 65 | 74 22 0d 36 30 20 50 52 |th Stree|t".60 PR|
|00000190| 49 4e 54 20 22 43 6f 6d | 6d 61 6e 64 73 3a 20 20 |INT "Com|mands:  |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 53 61 6e 20 44 69 |        |  San Di|
|000001d0| 65 67 6f 2c 20 43 41 20 | 20 39 32 31 30 34 22 0d |ego, CA | 92104".|
|000001e0| 37 30 20 50 52 49 4e 54 | 20 22 20 20 20 20 20 20 |70 PRINT| "      |
|000001f0| 20 20 20 20 20 20 20 20 | 41 72 72 6f 77 20 4b 65 |        |Arrow Ke|
|00000200| 79 73 20 20 20 3d 20 20 | 20 20 4d 6f 76 65 20 43 |ys   =  |  Move C|
|00000210| 75 72 73 6f 72 20 55 44 | 52 4c 22 0d 38 30 20 50 |ursor UD|RL".80 P|
|00000220| 52 49 4e 54 20 22 20 20 | 48 6f 6d 65 2c 20 50 67 |RINT "  |Home, Pg|
|00000230| 75 70 2c 20 50 67 64 6e | 2c 20 45 6e 64 20 20 20 |up, Pgdn|, End   |
|00000240| 20 3d 20 20 20 20 4d 6f | 76 65 20 43 75 72 73 6f | =    Mo|ve Curso|
|00000250| 72 20 44 69 61 67 73 22 | 0d 39 30 20 50 52 49 4e |r Diags"|.90 PRIN|
|00000260| 54 20 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |T "     |        |
|00000270| 20 20 20 20 20 20 20 20 | 49 6e 73 20 20 20 3d 20 |        |Ins   = |
|00000280| 20 20 20 4d 6f 76 65 20 | 43 75 72 73 6f 72 20 49 |   Move |Cursor I|
|00000290| 4e 20 28 5a 29 22 0d 31 | 30 30 20 50 52 49 4e 54 |N (Z)".1|00 PRINT|
|000002a0| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|000002b0| 20 20 20 20 20 20 20 44 | 65 6c 20 20 20 3d 20 20 |       D|el   =  |
|000002c0| 20 20 4d 6f 76 65 20 43 | 75 72 73 6f 72 20 4f 55 |  Move C|ursor OU|
|000002d0| 54 20 28 5a 29 22 0d 31 | 31 30 20 50 52 49 4e 54 |T (Z)".1|10 PRINT|
|000002e0| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|000002f0| 20 20 20 20 20 20 20 2b | 20 2d 20 20 20 3d 20 20 |       +| -   =  |
|00000300| 20 20 43 68 61 6e 67 65 | 20 43 75 72 73 6f 72 20 |  Change| Cursor |
|00000310| 4d 6f 76 65 20 52 61 74 | 65 22 0d 31 32 30 20 50 |Move Rat|e".120 P|
|00000320| 52 49 4e 54 20 22 20 20 | 20 20 20 20 20 20 20 20 |RINT "  |        |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 20 20 |        |     S  |
|00000340| 20 3d 20 20 20 20 53 65 | 74 20 50 6f 69 6e 74 20 | =    Se|t Point |
|00000350| 40 20 43 75 72 73 6f 72 | 22 0d 31 33 30 20 50 52 |@ Cursor|".130 PR|
|00000360| 49 4e 54 20 22 20 20 20 | 20 20 20 20 20 20 20 20 |INT "   |        |
|00000370| 20 20 20 20 20 20 31 2c | 20 32 2c 20 33 20 20 20 |      1,| 2, 3   |
|00000380| 3d 20 20 20 20 44 72 61 | 77 20 4c 69 6e 65 20 75 |=    Dra|w Line u|
|00000390| 70 20 74 6f 20 43 75 72 | 73 6f 72 2c 20 69 6e 20 |p to Cur|sor, in |
|000003a0| 43 6f 6c 6f 72 22 0d 31 | 34 30 20 50 52 49 4e 54 |Color".1|40 PRINT|
|000003b0| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|000003c0| 20 20 20 20 20 20 20 20 | 20 43 20 20 20 3d 20 20 |        | C   =  |
|000003d0| 20 20 43 68 61 6e 67 65 | 20 43 6f 6c 6f 72 20 53 |  Change| Color S|
|000003e0| 65 74 22 0d 31 35 30 20 | 50 52 49 4e 54 20 22 20 |et".150 |PRINT " |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000400| 20 20 20 20 20 20 56 20 | 20 20 3d 20 20 20 20 56 |      V |  =    V|
|00000410| 69 73 69 74 20 50 72 65 | 76 69 6f 75 73 6c 79 20 |isit Pre|viously |
|00000420| 53 65 74 20 50 6f 69 6e | 74 73 22 0d 31 36 30 20 |Set Poin|ts".160 |
|00000430| 50 52 49 4e 54 20 22 20 | 20 20 20 20 20 20 20 20 |PRINT " |        |
|00000440| 20 20 20 20 20 20 20 20 | 58 2c 20 59 2c 20 5a 20 |        |X, Y, Z |
|00000450| 20 20 3d 20 20 20 20 52 | 6f 74 61 74 65 20 69 6e |  =    R|otate in|
|00000460| 20 70 6c 61 6e 65 22 0d | 31 37 30 20 50 52 49 4e | plane".|170 PRIN|
|00000470| 54 20 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |T "     |        |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 7c 20 20 20 3d 20 |        |  |   = |
|00000490| 20 20 20 52 65 64 72 61 | 77 20 53 63 72 65 65 6e |   Redra|w Screen|
|000004a0| 22 0d 31 38 30 20 50 52 | 49 4e 54 20 22 20 20 20 |".180 PR|INT "   |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004c0| 20 20 20 20 21 20 20 20 | 3d 20 20 20 20 45 6e 64 |    !   |=    End|
|000004d0| 20 50 72 6f 67 72 61 6d | 22 0d 31 39 30 20 50 52 | Program|".190 PR|
|000004e0| 49 4e 54 20 22 20 20 20 | 20 20 20 20 20 20 20 20 |INT "   |        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 40 20 20 20 |        |    @   |
|00000500| 3d 20 20 20 20 43 6c 65 | 61 72 20 61 6c 6c 20 50 |=    Cle|ar all P|
|00000510| 6f 69 6e 74 73 22 0d 32 | 30 30 20 50 52 49 4e 54 |oints".2|00 PRINT|
|00000520| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|00000530| 20 20 20 20 20 20 20 20 | 20 57 20 20 20 3d 20 20 |        | W   =  |
|00000540| 20 20 57 72 69 74 65 20 | 53 68 61 70 65 20 74 6f |  Write |Shape to|
|00000550| 20 44 69 73 6b 22 0d 32 | 31 30 20 50 52 49 4e 54 | Disk".2|10 PRINT|
|00000560| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 52 20 20 20 3d 20 20 |        | R   =  |
|00000580| 20 20 52 65 61 64 20 53 | 68 61 70 65 20 66 72 6f |  Read S|hape fro|
|00000590| 6d 20 44 69 73 6b 22 0d | 32 32 30 20 50 52 49 4e |m Disk".|220 PRIN|
|000005a0| 54 20 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |T "     |        |
|000005b0| 20 20 20 20 20 20 20 20 | 20 22 2b 43 48 52 24 28 |        | "+CHR$(|
|000005c0| 31 37 29 2b 22 20 20 20 | 3d 20 20 20 20 4c 65 73 |17)+"   |=    Les|
|000005d0| 73 65 6e 20 64 69 73 74 | 61 6e 63 65 2f 73 6b 65 |sen dist|ance/ske|
|000005e0| 77 22 0d 32 33 30 20 50 | 52 49 4e 54 20 22 20 20 |w".230 P|RINT "  |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 22 2b 43 48 | 52 24 28 31 37 29 2b 22 |    "+CH|R$(17)+"|
|00000610| 2d 20 20 20 3d 20 20 20 | 20 49 6e 63 72 65 61 73 |-   =   | Increas|
|00000620| 65 20 64 69 73 74 61 6e | 63 65 2f 73 6b 65 77 22 |e distan|ce/skew"|
|00000630| 0d 32 34 30 20 50 52 49 | 4e 54 20 22 20 20 20 20 |.240 PRI|NT "    |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 20 45 73 63 20 20 20 3d | 20 20 20 20 52 45 54 55 | Esc   =|    RETU|
|00000660| 52 4e 20 54 4f 20 54 48 | 49 53 20 4d 45 4e 55 22 |RN TO TH|IS MENU"|
|00000670| 0d 32 35 30 20 50 52 49 | 4e 54 20 22 22 0d 32 36 |.250 PRI|NT "".26|
|00000680| 30 20 50 52 49 4e 54 20 | 22 20 50 6c 65 61 73 65 |0 PRINT |" Please|
|00000690| 20 6c 65 61 76 65 20 43 | 41 50 53 20 4c 4f 43 4b | leave C|APS LOCK|
|000006a0| 20 6f 6e 20 61 74 20 61 | 6c 6c 20 74 69 6d 65 73 | on at a|ll times|
|000006b0| 2e 22 0d 32 37 30 20 49 | 46 20 49 4e 4b 45 59 24 |.".270 I|F INKEY$|
|000006c0| 3d 22 22 20 54 48 45 4e | 20 32 37 30 0d 32 38 30 |="" THEN| 270.280|
|000006d0| 20 47 4f 54 4f 20 37 35 | 30 0d 32 39 30 20 47 4f | GOTO 75|0.290 GO|
|000006e0| 53 55 42 20 36 38 30 3a | 4f 50 3d 50 4f 49 4e 54 |SUB 680:|OP=POINT|
|000006f0| 28 58 50 2c 59 50 29 0d | 33 30 30 20 50 53 45 54 |(XP,YP).|300 PSET|
|00000700| 20 28 58 50 2c 59 50 29 | 2c 41 42 53 28 4f 50 2d | (XP,YP)|,ABS(OP-|
|00000710| 31 29 0d 33 31 30 20 4c | 4f 43 41 54 45 20 32 34 |1).310 L|OCATE 24|
|00000720| 2c 31 3a 50 52 49 4e 54 | 20 55 53 49 4e 47 20 22 |,1:PRINT| USING "|
|00000730| 2b 23 23 23 2e 23 23 3a | 2b 23 23 23 2e 23 23 3a |+###.##:|+###.##:|
|00000740| 2b 23 23 23 2e 23 23 20 | 53 3d 23 23 20 44 3d 23 |+###.## |S=## D=#|
|00000750| 23 22 3b 58 3b 59 3b 5a | 3b 43 3b 44 2f 31 30 30 |#";X;Y;Z|;C;D/100|
|00000760| 30 3b 0d 33 32 30 20 41 | 24 3d 49 4e 4b 45 59 24 |0;.320 A|$=INKEY$|
|00000770| 0d 33 33 30 20 50 53 45 | 54 20 28 58 50 2c 59 50 |.330 PSE|T (XP,YP|
|00000780| 29 2c 4f 50 0d 33 34 30 | 20 0d 33 35 30 20 49 46 |),OP.340| .350 IF|
|00000790| 20 41 24 3d 22 22 20 54 | 48 45 4e 20 32 39 30 0d | A$="" T|HEN 290.|
|000007a0| 33 36 30 20 49 46 20 4c | 45 4e 28 41 24 29 3d 32 |360 IF L|EN(A$)=2|
|000007b0| 20 54 48 45 4e 20 41 3d | 41 53 43 28 52 49 47 48 | THEN A=|ASC(RIGH|
|000007c0| 54 24 28 41 24 2c 31 29 | 29 3a 47 4f 54 4f 20 35 |T$(A$,1)|):GOTO 5|
|000007d0| 37 30 20 45 4c 53 45 20 | 41 3d 41 53 43 28 41 24 |70 ELSE |A=ASC(A$|
|000007e0| 29 0d 33 37 30 20 49 46 | 20 41 3d 38 33 20 54 48 |).370 IF| A=83 TH|
|000007f0| 45 4e 20 50 53 45 54 20 | 28 58 50 2c 59 50 29 2c |EN PSET |(XP,YP),|
|00000800| 31 3a 45 58 3d 58 50 3a | 45 59 3d 59 50 3a 4d 28 |1:EX=XP:|EY=YP:M(|
|00000810| 4d 50 2c 30 29 3d 30 3a | 4d 28 4d 50 2c 31 29 3d |MP,0)=0:|M(MP,1)=|
|00000820| 58 3a 4d 28 4d 50 2c 32 | 29 3d 59 3a 4d 28 4d 50 |X:M(MP,2|)=Y:M(MP|
|00000830| 2c 33 29 3d 5a 3a 4d 50 | 3d 4d 50 2b 31 3a 47 4f |,3)=Z:MP|=MP+1:GO|
|00000840| 54 4f 20 32 39 30 20 20 | 20 20 20 20 20 20 20 20 |TO 290  |        |
|00000850| 20 20 20 20 20 27 20 53 | 65 74 0d 33 38 30 20 49 |     ' S|et.380 I|
|00000860| 46 20 41 3d 36 37 20 54 | 48 45 4e 20 43 53 3d 41 |F A=67 T|HEN CS=A|
|00000870| 42 53 28 43 53 2d 31 29 | 3a 43 4f 4c 4f 52 20 30 |BS(CS-1)|:COLOR 0|
|00000880| 2c 43 53 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,CS     |        |
|00000890| 20 20 20 20 27 20 43 53 | 20 43 68 61 6e 67 65 0d |    ' CS| Change.|
|000008a0| 33 39 30 20 49 46 20 41 | 3d 36 34 20 54 48 45 4e |390 IF A|=64 THEN|
|000008b0| 20 4d 50 3d 31 3a 43 4c | 53 0d 34 30 30 20 49 46 | MP=1:CL|S.400 IF|
|000008c0| 20 41 3d 34 39 20 54 48 | 45 4e 20 4c 49 4e 45 20 | A=49 TH|EN LINE |
|000008d0| 28 45 58 2c 45 59 29 2d | 28 58 50 2c 59 50 29 2c |(EX,EY)-|(XP,YP),|
|000008e0| 31 3a 45 58 3d 58 50 3a | 45 59 3d 59 50 3a 4d 28 |1:EX=XP:|EY=YP:M(|
|000008f0| 4d 50 2c 30 29 3d 31 3a | 4d 28 4d 50 2c 31 29 3d |MP,0)=1:|M(MP,1)=|
|00000900| 58 3a 4d 28 4d 50 2c 32 | 29 3d 59 3a 4d 28 4d 50 |X:M(MP,2|)=Y:M(MP|
|00000910| 2c 33 29 3d 5a 3a 4d 50 | 3d 4d 50 2b 31 3a 47 4f |,3)=Z:MP|=MP+1:GO|
|00000920| 54 4f 20 32 39 30 20 20 | 20 20 20 20 20 27 20 4c |TO 290  |     ' L|
|00000930| 69 6e 65 0d 34 31 30 20 | 49 46 20 41 3d 35 30 20 |ine.410 |IF A=50 |
|00000940| 54 48 45 4e 20 4c 49 4e | 45 20 28 45 58 2c 45 59 |THEN LIN|E (EX,EY|
|00000950| 29 2d 28 58 50 2c 59 50 | 29 2c 32 3a 45 58 3d 58 |)-(XP,YP|),2:EX=X|
|00000960| 50 3a 45 59 3d 59 50 3a | 4d 28 4d 50 2c 30 29 3d |P:EY=YP:|M(MP,0)=|
|00000970| 32 3a 4d 28 4d 50 2c 31 | 29 3d 58 3a 4d 28 4d 50 |2:M(MP,1|)=X:M(MP|
|00000980| 2c 32 29 3d 59 3a 4d 28 | 4d 50 2c 33 29 3d 5a 3a |,2)=Y:M(|MP,3)=Z:|
|00000990| 4d 50 3d 4d 50 2b 31 3a | 47 4f 54 4f 20 32 39 30 |MP=MP+1:|GOTO 290|
|000009a0| 20 20 20 20 20 20 20 27 | 20 4c 69 6e 65 0d 34 32 |       '| Line.42|
|000009b0| 30 20 49 46 20 41 3d 35 | 31 20 54 48 45 4e 20 4c |0 IF A=5|1 THEN L|
|000009c0| 49 4e 45 20 28 45 58 2c | 45 59 29 2d 28 58 50 2c |INE (EX,|EY)-(XP,|
|000009d0| 59 50 29 2c 33 3a 45 58 | 3d 58 50 3a 45 59 3d 59 |YP),3:EX|=XP:EY=Y|
|000009e0| 50 3a 4d 28 4d 50 2c 30 | 29 3d 33 3a 4d 28 4d 50 |P:M(MP,0|)=3:M(MP|
|000009f0| 2c 31 29 3d 58 3a 4d 28 | 4d 50 2c 32 29 3d 59 3a |,1)=X:M(|MP,2)=Y:|
|00000a00| 4d 28 4d 50 2c 33 29 3d | 5a 3a 4d 50 3d 4d 50 2b |M(MP,3)=|Z:MP=MP+|
|00000a10| 31 3a 47 4f 54 4f 20 32 | 39 30 20 20 20 20 20 20 |1:GOTO 2|90      |
|00000a20| 20 27 20 4c 69 6e 65 0d | 34 33 30 20 49 46 20 41 | ' Line.|430 IF A|
|00000a30| 3d 31 32 34 20 54 48 45 | 4e 20 37 35 30 20 20 20 |=124 THE|N 750   |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 27 20 7c 20 52 65 |        |  ' | Re|
|00000a50| 64 72 61 77 0d 34 34 30 | 20 49 46 20 41 3d 32 37 |draw.440| IF A=27|
|00000a60| 20 54 48 45 4e 20 33 30 | 0d 34 35 30 20 49 46 20 | THEN 30|.450 IF |
|00000a70| 41 3d 38 37 20 54 48 45 | 4e 20 47 4f 53 55 42 20 |A=87 THE|N GOSUB |
|00000a80| 39 35 30 3a 47 4f 54 4f | 20 37 35 30 20 20 20 27 |950:GOTO| 750   '|
|00000a90| 20 57 20 20 57 72 69 74 | 65 0d 34 36 30 20 49 46 | W  Writ|e.460 IF|
|00000aa0| 20 41 3d 38 32 20 54 48 | 45 4e 20 47 4f 53 55 42 | A=82 TH|EN GOSUB|
|00000ab0| 20 31 30 34 30 3a 47 4f | 54 4f 20 37 35 30 20 20 | 1040:GO|TO 750  |
|00000ac0| 20 27 20 52 20 20 52 65 | 61 64 0d 34 37 30 20 49 | ' R  Re|ad.470 I|
|00000ad0| 46 20 41 3d 31 33 20 54 | 48 45 4e 20 44 3d 44 2d |F A=13 T|HEN D=D-|
|00000ae0| 31 30 30 30 3a 49 46 20 | 44 3c 31 30 30 30 20 54 |1000:IF |D<1000 T|
|00000af0| 48 45 4e 20 44 3d 31 30 | 30 30 3a 47 4f 54 4f 20 |HEN D=10|00:GOTO |
|00000b00| 37 35 30 20 45 4c 53 45 | 20 37 35 30 0d 34 38 30 |750 ELSE| 750.480|
|00000b10| 20 49 46 20 41 3d 38 20 | 54 48 45 4e 20 44 3d 44 | IF A=8 |THEN D=D|
|00000b20| 2b 31 30 30 30 3a 49 46 | 20 44 3e 31 30 30 30 30 |+1000:IF| D>10000|
|00000b30| 20 54 48 45 4e 20 44 3d | 31 30 30 30 30 3a 47 4f | THEN D=|10000:GO|
|00000b40| 54 4f 20 37 35 30 20 45 | 4c 53 45 20 37 35 30 0d |TO 750 E|LSE 750.|
|00000b50| 34 39 30 20 49 46 20 41 | 3d 38 36 20 54 48 45 4e |490 IF A|=86 THEN|
|00000b60| 20 58 3d 4d 28 56 50 2c | 31 29 3a 59 3d 4d 28 56 | X=M(VP,|1):Y=M(V|
|00000b70| 50 2c 32 29 3a 5a 3d 4d | 28 56 50 2c 33 29 3a 56 |P,2):Z=M|(VP,3):V|
|00000b80| 50 3d 56 50 2b 31 3a 49 | 46 20 56 50 3e 3d 4d 50 |P=VP+1:I|F VP>=MP|
|00000b90| 20 54 48 45 4e 20 56 50 | 3d 31 20 27 56 69 73 69 | THEN VP|=1 'Visi|
|00000ba0| 74 0d 35 30 30 20 49 46 | 20 41 3d 34 33 20 54 48 |t.500 IF| A=43 TH|
|00000bb0| 45 4e 20 43 3d 43 2b 31 | 3a 49 46 20 43 3e 32 30 |EN C=C+1|:IF C>20|
|00000bc0| 20 54 48 45 4e 20 43 3d | 32 30 20 20 20 20 20 20 | THEN C=|20      |
|00000bd0| 27 2b 20 53 74 65 70 20 | 72 61 74 65 0d 35 31 30 |'+ Step |rate.510|
|00000be0| 20 49 46 20 41 3d 34 35 | 20 54 48 45 4e 20 43 3d | IF A=45| THEN C=|
|00000bf0| 43 2d 31 3a 49 46 20 43 | 3c 31 20 54 48 45 4e 20 |C-1:IF C|<1 THEN |
|00000c00| 43 3d 31 20 20 20 20 20 | 20 20 20 27 2d 20 53 74 |C=1     |   '- St|
|00000c10| 65 70 20 72 61 74 65 0d | 35 32 30 20 49 46 20 41 |ep rate.|520 IF A|
|00000c20| 3d 38 38 20 54 48 45 4e | 20 38 35 30 3a 20 20 20 |=88 THEN| 850:   |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c40| 20 20 20 20 20 27 58 20 | 52 4f 54 41 54 45 0d 35 |     'X |ROTATE.5|
|00000c50| 33 30 20 49 46 20 41 3d | 38 39 20 54 48 45 4e 20 |30 IF A=|89 THEN |
|00000c60| 39 30 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |900:    |        |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 27 59 20 52 |        |    'Y R|
|00000c80| 4f 54 41 54 45 0d 35 34 | 30 20 49 46 20 41 3d 39 |OTATE.54|0 IF A=9|
|00000c90| 30 20 54 48 45 4e 20 38 | 30 30 3a 20 20 20 20 20 |0 THEN 8|00:     |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cb0| 20 20 20 27 5a 20 52 4f | 54 41 54 45 0d 35 35 30 |   'Z RO|TATE.550|
|00000cc0| 20 49 46 20 41 3d 33 33 | 20 54 48 45 4e 20 57 49 | IF A=33| THEN WI|
|00000cd0| 44 54 48 20 38 30 3a 43 | 4c 53 3a 45 4e 44 20 20 |DTH 80:C|LS:END  |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cf0| 20 27 20 45 4e 44 0d 35 | 36 30 20 47 4f 54 4f 20 | ' END.5|60 GOTO |
|00000d00| 32 39 30 0d 35 37 30 20 | 49 46 20 41 3d 37 32 20 |290.570 |IF A=72 |
|00000d10| 54 48 45 4e 20 59 3d 59 | 2d 43 3a 47 4f 54 4f 20 |THEN Y=Y|-C:GOTO |
|00000d20| 36 37 30 20 20 20 27 55 | 50 0d 35 38 30 20 49 46 |670   'U|P.580 IF|
|00000d30| 20 41 3d 37 35 20 54 48 | 45 4e 20 58 3d 58 2d 43 | A=75 TH|EN X=X-C|
|00000d40| 3a 47 4f 54 4f 20 36 37 | 30 20 20 20 27 4c 45 46 |:GOTO 67|0   'LEF|
|00000d50| 54 0d 35 39 30 20 49 46 | 20 41 3d 38 30 20 54 48 |T.590 IF| A=80 TH|
|00000d60| 45 4e 20 59 3d 59 2b 43 | 3a 47 4f 54 4f 20 36 37 |EN Y=Y+C|:GOTO 67|
|00000d70| 30 20 20 20 27 44 4f 57 | 4e 0d 36 30 30 20 49 46 |0   'DOW|N.600 IF|
|00000d80| 20 41 3d 37 37 20 54 48 | 45 4e 20 58 3d 58 2b 43 | A=77 TH|EN X=X+C|
|00000d90| 3a 47 4f 54 4f 20 36 37 | 30 20 20 20 27 52 49 47 |:GOTO 67|0   'RIG|
|00000da0| 48 54 0d 36 31 30 20 49 | 46 20 41 3d 37 31 20 54 |HT.610 I|F A=71 T|
|00000db0| 48 45 4e 20 58 3d 58 2d | 43 3a 59 3d 59 2d 43 3a |HEN X=X-|C:Y=Y-C:|
|00000dc0| 47 4f 54 4f 20 36 37 30 | 20 20 20 27 48 6f 6d 65 |GOTO 670|   'Home|
|00000dd0| 0d 36 32 30 20 49 46 20 | 41 3d 37 39 20 54 48 45 |.620 IF |A=79 THE|
|00000de0| 4e 20 58 3d 58 2d 43 3a | 59 3d 59 2b 43 3a 47 4f |N X=X-C:|Y=Y+C:GO|
|00000df0| 54 4f 20 36 37 30 20 20 | 20 27 45 6e 64 0d 36 33 |TO 670  | 'End.63|
|00000e00| 30 20 49 46 20 41 3d 37 | 33 20 54 48 45 4e 20 58 |0 IF A=7|3 THEN X|
|00000e10| 3d 58 2b 43 3a 59 3d 59 | 2d 43 3a 47 4f 54 4f 20 |=X+C:Y=Y|-C:GOTO |
|00000e20| 36 37 30 20 20 20 27 50 | 67 55 70 0d 36 34 30 20 |670   'P|gUp.640 |
|00000e30| 49 46 20 41 3d 38 31 20 | 54 48 45 4e 20 58 3d 58 |IF A=81 |THEN X=X|
|00000e40| 2b 43 3a 59 3d 59 2b 43 | 3a 47 4f 54 4f 20 36 37 |+C:Y=Y+C|:GOTO 67|
|00000e50| 30 20 20 20 27 50 67 44 | 6e 0d 36 35 30 20 49 46 |0   'PgD|n.650 IF|
|00000e60| 20 41 3d 38 32 20 54 48 | 45 4e 20 5a 3d 5a 2b 43 | A=82 TH|EN Z=Z+C|
|00000e70| 3a 47 4f 54 4f 20 36 37 | 30 20 20 20 27 49 6e 73 |:GOTO 67|0   'Ins|
|00000e80| 20 28 69 6e 29 0d 36 36 | 30 20 49 46 20 41 3d 38 | (in).66|0 IF A=8|
|00000e90| 33 20 54 48 45 4e 20 5a | 3d 5a 2d 43 20 20 20 20 |3 THEN Z|=Z-C    |
|00000ea0| 20 20 20 20 20 20 20 20 | 27 44 65 6c 20 28 6f 75 |        |'Del (ou|
|00000eb0| 74 29 0d 36 37 30 20 47 | 4f 54 4f 20 32 39 30 0d |t).670 G|OTO 290.|
|00000ec0| 36 38 30 20 49 46 20 58 | 3e 31 35 39 20 54 48 45 |680 IF X|>159 THE|
|00000ed0| 4e 20 58 3d 58 2d 33 32 | 30 0d 36 39 30 20 49 46 |N X=X-32|0.690 IF|
|00000ee0| 20 58 3c 2d 31 36 30 20 | 54 48 45 4e 20 58 3d 58 | X<-160 |THEN X=X|
|00000ef0| 2b 33 32 30 0d 37 30 30 | 20 49 46 20 59 3e 39 39 |+320.700| IF Y>99|
|00000f00| 20 54 48 45 4e 20 59 3d | 59 2d 32 30 30 0d 37 31 | THEN Y=|Y-200.71|
|00000f10| 30 20 49 46 20 59 3c 2d | 31 30 30 20 54 48 45 4e |0 IF Y<-|100 THEN|
|00000f20| 20 59 3d 59 2b 32 30 30 | 0d 37 32 30 20 58 50 3d | Y=Y+200|.720 XP=|
|00000f30| 28 28 58 2a 44 29 2f 28 | 44 2b 5a 29 29 2b 31 36 |((X*D)/(|D+Z))+16|
|00000f40| 30 0d 37 33 30 20 59 50 | 3d 28 28 59 2a 44 29 2f |0.730 YP|=((Y*D)/|
|00000f50| 28 44 2b 5a 29 29 2b 31 | 30 30 0d 37 34 30 20 52 |(D+Z))+1|00.740 R|
|00000f60| 45 54 55 52 4e 0d 37 35 | 30 20 43 4c 53 0d 37 36 |ETURN.75|0 CLS.76|
|00000f70| 30 20 46 4f 52 20 49 3d | 31 20 54 4f 20 4d 50 2d |0 FOR I=|1 TO MP-|
|00000f80| 31 0d 37 37 30 20 58 3d | 4d 28 49 2c 31 29 3a 59 |1.770 X=|M(I,1):Y|
|00000f90| 3d 4d 28 49 2c 32 29 3a | 5a 3d 4d 28 49 2c 33 29 |=M(I,2):|Z=M(I,3)|
|00000fa0| 3a 47 4f 53 55 42 20 37 | 32 30 0d 37 38 30 20 49 |:GOSUB 7|20.780 I|
|00000fb0| 46 20 4d 28 49 2c 30 29 | 3d 30 20 54 48 45 4e 20 |F M(I,0)|=0 THEN |
|00000fc0| 4c 49 4e 45 20 28 58 50 | 2c 59 50 29 2d 28 58 50 |LINE (XP|,YP)-(XP|
|00000fd0| 2c 59 50 29 2c 31 20 45 | 4c 53 45 20 4c 49 4e 45 |,YP),1 E|LSE LINE|
|00000fe0| 20 2d 28 58 50 2c 59 50 | 29 2c 4d 28 49 2c 30 29 | -(XP,YP|),M(I,0)|
|00000ff0| 0d 37 39 30 20 4e 45 58 | 54 20 49 3a 47 4f 54 4f |.790 NEX|T I:GOTO|
|00001000| 20 32 39 30 0d 38 30 30 | 20 46 4f 52 20 49 3d 31 | 290.800| FOR I=1|
|00001010| 20 54 4f 20 4d 50 20 20 | 27 5a 20 52 4f 54 0d 38 | TO MP  |'Z ROT.8|
|00001020| 31 30 20 58 3d 4d 28 49 | 2c 31 29 3a 59 3d 4d 28 |10 X=M(I|,1):Y=M(|
|00001030| 49 2c 32 29 0d 38 32 30 | 20 58 4e 3d 28 2e 39 38 |I,2).820| XN=(.98|
|00001040| 34 38 30 37 38 2a 58 29 | 2b 28 2e 31 37 33 36 34 |48078*X)|+(.17364|
|00001050| 38 32 2a 59 29 0d 38 33 | 30 20 59 4e 3d 28 2e 39 |82*Y).83|0 YN=(.9|
|00001060| 38 34 38 30 37 38 2a 59 | 29 2d 28 2e 31 37 33 36 |848078*Y|)-(.1736|
|00001070| 34 38 32 2a 58 29 0d 38 | 34 30 20 4d 28 49 2c 31 |482*X).8|40 M(I,1|
|00001080| 29 3d 58 4e 3a 4d 28 49 | 2c 32 29 3d 59 4e 3a 4e |)=XN:M(I|,2)=YN:N|
|00001090| 45 58 54 20 49 3a 47 4f | 54 4f 20 37 35 30 0d 38 |EXT I:GO|TO 750.8|
|000010a0| 35 30 20 46 4f 52 20 49 | 3d 31 20 54 4f 20 4d 50 |50 FOR I|=1 TO MP|
|000010b0| 20 20 27 58 20 52 4f 54 | 0d 38 36 30 20 59 3d 4d |  'X ROT|.860 Y=M|
|000010c0| 28 49 2c 32 29 3a 5a 3d | 4d 28 49 2c 33 29 0d 38 |(I,2):Z=|M(I,3).8|
|000010d0| 37 30 20 59 4e 3d 28 2e | 39 38 34 38 30 37 38 2a |70 YN=(.|9848078*|
|000010e0| 59 29 2b 28 2e 31 37 33 | 36 34 38 32 2a 5a 29 0d |Y)+(.173|6482*Z).|
|000010f0| 38 38 30 20 5a 4e 3d 28 | 2e 39 38 34 38 30 37 38 |880 ZN=(|.9848078|
|00001100| 2a 5a 29 2d 28 2e 31 37 | 33 36 34 38 32 2a 59 29 |*Z)-(.17|36482*Y)|
|00001110| 0d 38 39 30 20 4d 28 49 | 2c 32 29 3d 59 4e 3a 4d |.890 M(I|,2)=YN:M|
|00001120| 28 49 2c 33 29 3d 5a 4e | 3a 4e 45 58 54 20 49 3a |(I,3)=ZN|:NEXT I:|
|00001130| 47 4f 54 4f 20 37 35 30 | 0d 39 30 30 20 46 4f 52 |GOTO 750|.900 FOR|
|00001140| 20 49 3d 31 20 54 4f 20 | 4d 50 20 20 27 59 20 52 | I=1 TO |MP  'Y R|
|00001150| 4f 54 0d 39 31 30 20 58 | 3d 4d 28 49 2c 31 29 3a |OT.910 X|=M(I,1):|
|00001160| 5a 3d 4d 28 49 2c 33 29 | 0d 39 32 30 20 58 4e 3d |Z=M(I,3)|.920 XN=|
|00001170| 28 2e 39 38 34 38 30 37 | 38 2a 58 29 2b 28 2e 31 |(.984807|8*X)+(.1|
|00001180| 37 33 36 34 38 32 2a 5a | 29 0d 39 33 30 20 5a 4e |736482*Z|).930 ZN|
|00001190| 3d 28 2e 39 38 34 38 30 | 37 38 2a 5a 29 2d 28 2e |=(.98480|78*Z)-(.|
|000011a0| 31 37 33 36 34 38 32 2a | 58 29 0d 39 34 30 20 4d |1736482*|X).940 M|
|000011b0| 28 49 2c 31 29 3d 58 4e | 3a 4d 28 49 2c 33 29 3d |(I,1)=XN|:M(I,3)=|
|000011c0| 5a 4e 3a 4e 45 58 54 20 | 49 3a 47 4f 54 4f 20 37 |ZN:NEXT |I:GOTO 7|
|000011d0| 35 30 0d 39 35 30 20 4c | 4f 43 41 54 45 20 32 34 |50.950 L|OCATE 24|
|000011e0| 2c 31 3a 50 52 49 4e 54 | 20 22 53 75 72 65 20 79 |,1:PRINT| "Sure y|
|000011f0| 6f 75 20 77 61 6e 74 20 | 74 6f 20 57 72 69 74 65 |ou want |to Write|
|00001200| 20 74 68 69 73 20 28 59 | 2f 4e 29 3f 22 3b 0d 39 | this (Y|/N)?";.9|
|00001210| 36 30 20 41 24 3d 49 4e | 4b 45 59 24 3a 49 46 20 |60 A$=IN|KEY$:IF |
|00001220| 41 24 3d 22 22 20 54 48 | 45 4e 20 39 36 30 0d 39 |A$="" TH|EN 960.9|
|00001230| 37 30 20 49 46 20 41 24 | 3c 3e 22 59 22 20 54 48 |70 IF A$|<>"Y" TH|
|00001240| 45 4e 20 4c 4f 43 41 54 | 45 20 32 34 2c 31 3a 50 |EN LOCAT|E 24,1:P|
|00001250| 52 49 4e 54 20 53 54 52 | 49 4e 47 24 28 33 39 2c |RINT STR|ING$(39,|
|00001260| 33 32 29 3b 3a 52 45 54 | 55 52 4e 0d 39 38 30 20 |32);:RET|URN.980 |
|00001270| 57 49 44 54 48 20 38 30 | 3a 43 4c 53 0d 39 39 30 |WIDTH 80|:CLS.990|
|00001280| 20 49 4e 50 55 54 20 22 | 46 69 6c 65 20 4e 61 6d | INPUT "|File Nam|
|00001290| 65 22 3b 46 24 0d 31 30 | 30 30 20 4f 50 45 4e 20 |e";F$.10|00 OPEN |
|000012a0| 22 4f 22 2c 31 2c 46 24 | 0d 31 30 31 30 20 50 52 |"O",1,F$|.1010 PR|
|000012b0| 49 4e 54 20 23 31 2c 4d | 50 0d 31 30 32 30 20 46 |INT #1,M|P.1020 F|
|000012c0| 4f 52 20 49 3d 31 20 54 | 4f 20 4d 50 3a 50 52 49 |OR I=1 T|O MP:PRI|
|000012d0| 4e 54 20 23 31 2c 4d 28 | 49 2c 30 29 3b 4d 28 49 |NT #1,M(|I,0);M(I|
|000012e0| 2c 31 29 3b 4d 28 49 2c | 32 29 3b 4d 28 49 2c 33 |,1);M(I,|2);M(I,3|
|000012f0| 29 3a 4e 45 58 54 20 49 | 3a 43 4c 4f 53 45 0d 31 |):NEXT I|:CLOSE.1|
|00001300| 30 33 30 20 43 4c 53 3a | 52 45 54 55 52 4e 0d 31 |030 CLS:|RETURN.1|
|00001310| 30 34 30 20 4c 4f 43 41 | 54 45 20 32 34 2c 31 3a |040 LOCA|TE 24,1:|
|00001320| 50 52 49 4e 54 20 22 53 | 75 72 65 20 79 6f 75 20 |PRINT "S|ure you |
|00001330| 77 61 6e 74 20 74 6f 20 | 52 65 61 64 20 61 20 66 |want to |Read a f|
|00001340| 69 6c 65 20 28 59 2f 4e | 29 3f 22 3b 0d 31 30 35 |ile (Y/N|)?";.105|
|00001350| 30 20 41 24 3d 49 4e 4b | 45 59 24 3a 49 46 20 41 |0 A$=INK|EY$:IF A|
|00001360| 24 3d 22 22 20 54 48 45 | 4e 20 31 30 35 30 0d 31 |$="" THE|N 1050.1|
|00001370| 30 36 30 20 49 46 20 41 | 24 3c 3e 22 59 22 20 54 |060 IF A|$<>"Y" T|
|00001380| 48 45 4e 20 4c 4f 43 41 | 54 45 20 32 34 2c 31 3a |HEN LOCA|TE 24,1:|
|00001390| 50 52 49 4e 54 20 53 54 | 52 49 4e 47 24 28 33 39 |PRINT ST|RING$(39|
|000013a0| 2c 33 32 29 3b 3a 52 45 | 54 55 52 4e 0d 31 30 37 |,32);:RE|TURN.107|
|000013b0| 30 20 57 49 44 54 48 20 | 38 30 3a 43 4c 53 0d 31 |0 WIDTH |80:CLS.1|
|000013c0| 30 37 35 20 46 49 4c 45 | 53 0d 31 30 38 30 20 49 |075 FILE|S.1080 I|
|000013d0| 4e 50 55 54 20 22 46 69 | 6c 65 20 4e 61 6d 65 22 |NPUT "Fi|le Name"|
|000013e0| 3b 46 24 0d 31 30 39 30 | 20 4f 50 45 4e 20 22 49 |;F$.1090| OPEN "I|
|000013f0| 22 2c 31 2c 46 24 0d 31 | 31 30 30 20 49 4e 50 55 |",1,F$.1|100 INPU|
|00001400| 54 20 23 31 2c 4d 50 0d | 31 31 31 30 20 46 4f 52 |T #1,MP.|1110 FOR|
|00001410| 20 49 3d 31 20 54 4f 20 | 4d 50 3a 49 4e 50 55 54 | I=1 TO |MP:INPUT|
|00001420| 20 23 31 2c 4d 28 49 2c | 30 29 2c 4d 28 49 2c 31 | #1,M(I,|0),M(I,1|
|00001430| 29 2c 4d 28 49 2c 32 29 | 2c 4d 28 49 2c 33 29 3a |),M(I,2)|,M(I,3):|
|00001440| 4e 45 58 54 20 49 3a 43 | 4c 4f 53 45 0d 31 31 32 |NEXT I:C|LOSE.112|
|00001450| 30 20 43 4c 53 3a 52 45 | 54 55 52 4e 0d 00 00 00 |0 CLS:RE|TURN....|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001480| 00 00 01 00 00 00 01 5c | 00 00 00 5c 00 00 00 5a |.......\|...\...Z|
|00001490| 64 00 00 00 00 00 00 fe | 00 2b 01 0c 00 59 88 05 |d.......|.+...Y..|
|000014a0| 47 72 65 65 6e 00 00 00 | 00 00 01 13 00 35 01 21 |Green...|.....5.!|
|000014b0| 08 33 44 42 42 2e 42 41 | 53 42 02 00 00 00 54 45 |.3DBB.BA|SB....TE|
|000014c0| 58 54 70 5a 49 50 00 00 | 00 00 00 00 00 00 00 00 |XTpZIP..|........|
|000014d0| 00 00 54 45 58 54 70 5a | 49 50 00 00 00 00 00 00 |..TEXTpZ|IP......|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 9e 7d 9f 51 00 00 | 14 8e 00 00 01 b6 00 5b |...}.Q..|.......[|
|00001500| 01 0d 00 90 90 01 30 00 | 00 00 00 00 01 12 00 5b |......0.|.......[|
|00001510| 01 22 00 90 90 01 30 00 | 00 00 00 aa 00 09 00 00 |."....0.|........|
|00001520| 00 00 00 8a 01 00 00 9c | 01 50 04 04 4f 70 65 6e |........|.P..Open|
|00001530| 00 00 00 00 04 80 00 3b | 04 d0 00 4d 04 06 48 69 |.......;|...M..Hi|
|00001540| 64 64 65 6e 00 00 00 00 | 00 a3 01 00 00 b5 01 50 |dden....|.......P|
|00001550| 04 06 43 61 6e 63 65 6c | 00 00 00 00 00 27 00 e8 |..Cancel|.....'..|
|00001560| 00 3b 01 5b 80 00 00 00 | 00 00 00 44 01 00 00 56 |.;.[....|...D...V|
|00001570| 01 50 04 05 45 6a 65 63 | 74 00 00 00 00 00 00 5d |.P..Ejec|t......]|
|00001580| 00 00 00 40 00 09 06 4d | 6f 6e 61 63 6f b6 ff 58 |...@...M|onaco..X|
|00001590| 01 96 01 d8 00 00 00 00 | 00 b8 01 30 00 02 4b bc |........|...0..K.|
|000015a0| 00 02 4b 9c 00 00 00 00 | 00 00 00 00 00 00 00 00 |..K.....|........|
|000015b0| 00 00 00 00 00 2a 00 6a | 00 01 00 01 00 08 ff ff |.....*.j|........|
|000015c0| ff ff ff ff 00 00 00 04 | 00 06 00 08 00 00 00 0c |........|........|
|000015d0| 00 00 00 51 00 00 00 00 | 00 00 00 00 00 00 01 00 |...Q....|........|
|000015e0| 00 00 01 5c 00 00 00 5c | 00 00 00 5a 00 4a 29 40 |...\...\|...Z.J)@|
|000015f0| 04 0c 00 00 00 1c 00 5a | 00 02 45 46 4e 54 00 00 |.......Z|..EFNT..|
|00001600| 00 1a 45 54 41 42 00 00 | 00 26 45 50 4f 53 00 00 |..ETAB..|.&EPOS..|
|00001610| 00 32 03 eb ff ff 00 00 | 00 00 00 00 00 00 03 ec |.2......|........|
|00001620| ff ff 00 00 00 44 00 00 | 00 00 03 ed ff ff 00 00 |.....D..|........|
|00001630| 00 4c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.L......|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+